100 Plus Great Games 2/100PLUSV2.BIN/games/SimpleFaro.dxr/Internal_10_4 way.ls

Text File | 2002-01-25 | 1.7 KB | 41 lines

property spriteNum, sprite1, sprite2, sprite3, sprite4, sharpee, betnumber, chipPiece, alreadyBetOn
global gPlayerBets, points, playerCredits, chip, chipLoc

on getPropertyDescriptionList me
  return [#sprite1: [#comment: "none", #format: #integer, #default: 0], #sprite2: [#comment: "none", #format: #integer, #default: 0], #sprite3: [#comment: "none", #format: #integer, #default: 0], #sprite4: [#comment: "none", #format: #integer, #default: 0], #sharpee: [#comment: "none", #format: #string, #default: "sprite(?)"]]
end

on beginSprite me
  sprite(spriteNum).blend = 0
  betnumber = ("B" & string(spriteNum)).symbol
  chipPiece = value(sharpee)
  alreadyBetOn = 0
end

on mouseDown me
  if points > 0 then
    if not voidp(chip) then
      if not alreadyBetOn then
        enableBet = 1
        repeat with i in [sprite1, sprite2, sprite3, sprite4]
          if (value(member(sprite(i).member.name && "text").text.char[1]) + value(member(sprite(i).member.name && "text").text.char[3])) = 4 then
            enableBet = 0
            exit repeat
          end if
        end repeat
        if enableBet then
          if gPlayerBets.count < 5 then
            gPlayerBets.addProp(betnumber, new(script("player bet"), #set, 50, [sprite(sprite1).member.name.symbol, sprite(sprite2).member.name.symbol, sprite(sprite3).member.name.symbol, sprite(sprite4).member.name.symbol], chip, gPlayerBets))
            chipLoc = sprite(spriteNum).loc
            chipPiece.member = string(chip)
            chipPiece.loc = chipLoc
            points = points - 50
            playerCredits.text = string(points)
            alreadyBetOn = 1
          end if
        end if
      end if
    end if
  end if
end